PC Gamer (Italian) 34/PC Gamer IT CD 34 2-2.iso/utility/rccd30103/_SETUP.1/Rccd.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-09-03 | 21KB | 614 lines

object MainForm: TMainForm
  Left = 284
  Top = 128
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Remote Control CD Player'
  ClientHeight = 263
  ClientWidth = 148
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  PopupMenu = MediaPlayerPopup
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Rollup: TgbRollup
    Left = 1
    Top = 1
    Width = 146
    Height = 123
    RollAmount = 0
    DropHeight = 123
    Moveable = False
    Caption = ' RCCD'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ShowHelpButton = True
    IsForm = True
    OnRollUp = RollChange
    OnRollDown = RollChange
    OnRollClose = RollupRollClose
    OnHelpClick = RollupHelpClick
    OnCaptionMouseDown = RollupCaptionMouseDown
    OnCaptionDblClick = RollupCaptionDblClick
    CaptionShowHint = True
    object Panel1: TPanel
      Left = 1
      Top = 121
      Width = 144
      Height = 1
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
    end
    object pnlToolbar: TPanel
      Left = 1
      Top = 17
      Width = 144
      Height = 55
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 2
      object imgBackgroundDefault: TImage
        Tag = 1
        Left = 2
        Top = 2
        Width = 140
        Height = 51
        Align = alClient
        Picture.Data = {<image000.bmp>}
        Visible = False
      end
      object imgBackground: TImage
        Tag = 1
        Left = 2
        Top = 2
        Width = 140
        Height = 51
        Align = alClient
      end
      object btnVolume: TSpeedButton
        Left = 79
        Top = 2
        Width = 25
        Height = 25
        Enabled = False
        Flat = True
        Glyph.Data = {
          EE000000424DEE000000000000007600000028000000100000000F0000000100
          0400000000007800000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAA0303AA
          AAAAAAAAA030883AAA3AAAAA0333FF3AA3AAAAA03B08FF3A3AAAA003BF08FF3A
          AAAA033BFB00FF3AAAAA3B8FBF030F3A33333B8BFB080F3AAAAA3F8FBF00FF3A
          AAAAA33BFB08FF3A3AAAAAA3BF08FF3AA3AAAAAA3B33AF3AAA3AAAAAA3B0AAAA
          AAAAAAAAAA3303AAAAAAAAAAAAA00AAAAAAA}
        Visible = False
        OnClick = btnVolumeClick
      end
      object btnPlay: TSpeedButton
        Tag = 1
        Left = 4
        Top = 2
        Width = 25
        Height = 25
        Hint = 'Play'
        Flat = True
        Glyph.Data = {
          B6010000424DB601000000000000760000002800000022000000100000000100
          0400000000004001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333000000333333333333333333333333333333333300
          0000333F3333333333333333F3333333333333000000338AFF33333333333338
          3FF33333333333000000338AAAFF333333333338333FF333333333000000338A
          AAAAFF333333333833333FF3333333000000338AAAAAAAFF333333383333333F
          F33333000000338AAAAAAAAAFF333338333333333FF333000000338AAAAAAAAA
          88F3333833333333388F33000000338AAAAAAA88333333383333333883333300
          0000338AAAAA88333333333833333883333333000000338AAA88333333333338
          33388333333333000000338A8833333333333338388333333333330000003388
          3333333333333338833333333333330000003333333333333333333333333333
          3333330000003333333333333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnPlayClick
      end
      object btnPause: TSpeedButton
        Tag = 1
        Left = 29
        Top = 2
        Width = 25
        Height = 25
        Hint = 'Pause'
        Flat = True
        Glyph.Data = {
          76010000424D760100000000000076000000280000001A000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333300000033333333333333333333333333000000338FFF38FFF3
          3338FF338FF333000000338BBF38BBF333383F3383F333000000338BBF38BBF3
          33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3
          33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3
          33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3
          33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3
          33383F3383F33300000033888F3888F333388F3388F333000000333333333333
          3333333333333300000033333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnPauseClick
      end
      object btnStop: TSpeedButton
        Tag = 1
        Left = 54
        Top = 2
        Width = 25
        Height = 25
        Hint = 'Stop'
        Flat = True
        Glyph.Data = {
          B6010000424DB601000000000000760000002800000022000000100000000100
          0400000000004001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333000000333333333333333333333333333333333300
          00003333333333333333333333333333333333000000333FFFFFFFFFFFF33333
          FFFFFFFFFFFF3300000033899999999999F3333833333333333F330000003389
          9999999999F3333833333333333F3300000033899999999999F3333833333333
          333F3300000033899999999999F3333833333333333F33000000338999999999
          99F3333833333333333F3300000033899999999999F3333833333333333F3300
          000033899999999999F3333833333333333F3300000033899999999999F33338
          33333333333F3300000033888888888888333338888888888883330000003333
          3333333333333333333333333333330000003333333333333333333333333333
          3333330000003333333333333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnStopClick
      end
      object btnBack: TSpeedButton
        Tag = 1
        Left = 4
        Top = 27
        Width = 25
        Height = 25
        Hint = 'Previous Track'
        Flat = True
        Glyph.Data = {
          B6010000424DB601000000000000760000002800000028000000100000000100
          0400000000004001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333338FF33333333333FF33338FF33333333333FF33338CF333333333FFCF33
          3383F333333333FF3F33338CF3333333FFCCCF333383F3333333FF333F33338C
          F33333FFCCCCCF333383F33333FF33333F33338CF333FFCCCCCCCF333383F333
          FF3333333F33338CF33FCCCCCCCCCF333383F33F333333333F33338CF388CCCC
          CCCCCF333383F388333333333F33338CF33388CCCCCCCF333383F33388333333
          3F33338CF3333388CCCCCF333383F333338833333F33338CF333333388CCCF33
          3383F333333388333F33338CF33333333388CF333383F333333333883F333388
          F333333333338F333388F333333333338F333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = btnBackClick
      end
      object btnSkipBack: TSpeedButton
        Tag = 1
        Left = 29
        Top = 27
        Width = 25
        Height = 25
        Hint = 'Skip Back'
        Flat = True
        Glyph.Data = {
          F6010000424DF60100000000000076000000280000002A000000100000000100
          0400000000008001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333330000003333333333333333333333333333
          333333333333330000003333333333333FF3FFF333333333333333FF3FFF3300
          000033333333333FF2F382F3333333333333FF3F383F33000000333333333FF2
          22F382F33333333333FF333F383F330000003333333FF22222F382F333333333
          FF33333F383F3300000033333FF2222222F382F3333333FF3333333F383F3300
          00003333F222222222F382F333333F333333333F383F33000000333882222222
          22F382F3333388333333333F383F3300000033333882222222F382F333333388
          3333333F383F3300000033333338822222F382F3333333338833333F383F3300
          000033333333388222F382F3333333333388333F383F33000000333333333338
          82F382F3333333333333883F383F3300000033333333333338F3888333333333
          3333338F38883300000033333333333333333333333333333333333333333300
          0000333333333333333333333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnSkipBackClick
      end
      object btnSkipForward: TSpeedButton
        Tag = 1
        Left = 54
        Top = 27
        Width = 25
        Height = 25
        Hint = 'Skip Forward'
        Flat = True
        Glyph.Data = {
          F6010000424DF60100000000000076000000280000002A000000100000000100
          0400000000008001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333330000003333333333333333333333333333
          33333333333333000000338FF3FF3333333333333338FF3FF333333333333300
          00003382F382FF333333333333383F383FF333333333330000003382F38222FF
          3333333333383F38333FF3333333330000003382F3822222FF33333333383F38
          33333FF33333330000003382F382222222FF333333383F383333333FF3333300
          00003382F38222222222FF3333383F38333333333FF3330000003382F3822222
          222288F333383F3833333333388F330000003382F38222222288333333383F38
          333333388333330000003382F38222228833333333383F383333388333333300
          00003382F38222883333333333383F38333883333333330000003382F3828833
          3333333333383F38388333333333330000003388F38833333333333333388F38
          8333333333333300000033333333333333333333333333333333333333333300
          0000333333333333333333333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnSkipForwardClick
      end
      object btnForward: TSpeedButton
        Tag = 1
        Left = 79
        Top = 27
        Width = 25
        Height = 25
        Hint = 'Next Track'
        Flat = True
        Glyph.Data = {
          F6010000424DF60100000000000076000000280000002A000000100000000100
          0400000000008001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333330000003333333333333333333333333333
          33333333333333000000333F3333333333338FF33333F3333333333338FF3300
          0000338CFF33333333338CF333383FF333333333383F33000000338CCCFF3333
          33338CF33338333FF3333333383F33000000338CCCCCFF3333338CF333383333
          3FF33333383F33000000338CCCCCCCFF33338CF333383333333FF333383F3300
          0000338CCCCCCCCCFF338CF33338333333333FF3383F33000000338CCCCCCCCC
          88F38CF3333833333333388F383F33000000338CCCCCCC8833338CF333383333
          33388333383F33000000338CCCCC883333338CF33338333338833333383F3300
          0000338CCC88333333338CF33338333883333333383F33000000338C88333333
          33338CF33338388333333333383F33000000338833333333333388F333388333
          33333333388F3300000033333333333333333333333333333333333333333300
          0000333333333333333333333333333333333333333333000000}
        NumGlyphs = 2
        OnClick = btnForwardClick
      end
      object btnClose: TSpeedButton
        Left = 114
        Top = 27
        Width = 25
        Height = 25
        Hint = 'Close'
        Flat = True
        Glyph.Data = {
          B6010000424DB601000000000000760000002800000026000000100000000100
          0400000000004001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333300333333333833333333333333333383333333
          3300333333338CF333333333333333383F333333330033333338CCCF33333333
          3333338333F3333333003333338CCCCCF333333333333833333F333333003333
          38CCCCCCCF333333333383333333F333330033338CCCCCCCCCF3333333383333
          33333F3333003338CCCCCCCCCCCF333333833333333333F33300338CCCCCCCCC
          CCCCF333383333333333333F330033FFFFFFFFFFFFFFF3333FFFFFFFFFFFFFFF
          3300333333333333333333333333333333333333330033888888888888888333
          38888888888888883300338CCCCCCCCCCCCCF333383333333333333F330033FF
          FFFFFFFFFFFFF3333FFFFFFFFFFFFFFF33003333333333333333333333333333
          3333333333003333333333333333333333333333333333333300}
        NumGlyphs = 2
        OnClick = btnCloseClick
      end
      object btnEject: TSpeedButton
        Left = 114
        Top = 3
        Width = 25
        Height = 25
        Hint = 'Eject'
        Flat = True
        Glyph.Data = {
          B6010000424DB601000000000000760000002800000026000000100000000100
          0400000000004001000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333300333333333333333333333333333333333333
          330033FFFFFFFFFFFFFFF3333FFFFFFFFFFFFFFF3300338CCCCCCCCCCCCCF333
          383333333333333F330033888888888888888333388888888888888833003333
          33333333333333333333333333333333330033FFFFFFFFFFFFFFF3333FFFFFFF
          FFFFFFFF3300338CCCCCCCCCCCCCF333383333333333333F33003338CCCCCCCC
          CCCF333333833333333333F3330033338CCCCCCCCCF333333338333333333F33
          3300333338CCCCCCCF333333333383333333F33333003333338CCCCCF3333333
          33333833333F3333330033333338CCCF333333333333338333F3333333003333
          33338CF333333333333333383F33333333003333333338333333333333333333
          8333333333003333333333333333333333333333333333333300}
        NumGlyphs = 2
        OnClick = btnEjectClick
      end
      object Bevel1: TBevel
        Left = 108
        Top = 1
        Width = 2
        Height = 52
        Shape = bsLeftLine
      end
    end
    object pnlTrackInfo: TStatusBar
      Left = 1
      Top = 102
      Width = 144
      Height = 19
      Align = alClient
      Panels = <
        item
          Alignment = taCenter
          Text = '[-- of --]'
          Width = 50
        end
        item
          Alignment = taCenter
          Text = '00:00'
          Width = 50
        end
        item
          Width = 50
        end>
      SimplePanel = False
      SizeGrip = False
    end
    object pnlTrackBar: TPanel
      Left = 1
      Top = 72
      Width = 144
      Height = 30
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 4
      object tbTrackSelectBar: TgbTrackBar
        Left = 0
        Top = 0
        Width = 144
        Height = 30
        Hint = 'Track Position'
        LineSize = 10
        Max = 1000
        Orientation = trHorizontal
        PageSize = 20
        PopupMenu = MediaPlayerPopup
        Frequency = 50
        Position = 0
        SelEnd = 0
        SelStart = 0
        TabOrder = 0
        TickMarks = tmBottomRight
        TickStyle = tsAuto
        OnChange = tbTrackSelectBarChange
        OnMouseDown = tbTrackSelectBarMouseDown
        OnMouseUp = tbTrackSelectBarMouseUp
      end
    end
  end
  object CDConsole: TMediaPlayer
    Left = 108
    Top = 164
    Width = 29
    Height = 27
    VisibleButtons = [btPlay]
    AutoRewind = False
    DeviceType = dtCDAudio
    Shareable = True
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
  end
  object TrackInfoTimer: TTimer
    Enabled = False
    OnTimer = TrackInfoTimerTimer
    Left = 24
    Top = 136
  end
  object MediaPlayerPopup: TPopupMenu
    Left = 52
    Top = 136
    object TrackMenu: TMenuItem
      Caption = 'Trac&k'
    end
    object mnuEditPlayList: TMenuItem
      Caption = 'E&dit Play List'
      OnClick = mnuEditPlayListClick
    end
    object mnuCDDBDownload: TMenuItem
      Caption = 'CDDB Reload'
      OnClick = mnuCDDBDownloadClick
    end
    object Volume1: TMenuItem
      Caption = '&Volume'
      Enabled = False
      Visible = False
      OnClick = btnVolumeClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object AutoRepeat: TMenuItem
      Tag = 3
      Caption = 'A&uto Repeat'
      OnClick = AutoRepeatClick
    end
    object RandomPlay: TMenuItem
      Tag = 3
      Caption = 'Ra&ndom Play'
      OnClick = RandomPlayClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object PlayPause: TMenuItem
      Tag = 2
      Caption = '&Play/Pause'
      OnClick = PlayPauseClick
    end
    object Next1: TMenuItem
      Tag = 2
      Caption = '&Forward'
      OnClick = Next1Click
    end
    object Previous1: TMenuItem
      Tag = 2
      Caption = '&Back'
      OnClick = Previous1Click
    end
    object SkipForwards1: TMenuItem
      Tag = 2
      Caption = 'Skip F&orward'
      OnClick = SkipForwards1Click
    end
    object SkipBack1: TMenuItem
      Tag = 2
      Caption = 'Skip B&ack'
      OnClick = SkipBack1Click
    end
    object N2: TMenuItem
      Tag = 2
      Caption = '-'
    end
    object Stop1: TMenuItem
      Tag = 2
      Caption = '&Stop'
      OnClick = Stop1Click
    end
    object Eject1: TMenuItem
      Tag = 2
      Caption = '&Eject'
      OnClick = Eject1Click
    end
    object CloseTray1: TMenuItem
      Tag = 2
      Caption = '&Close'
      OnClick = CloseTray1Click
    end
    object N1: TMenuItem
      Tag = 2
      Caption = '-'
    end
    object Settings1: TMenuItem
      Caption = 'Vie&w'
      object ToolBarMenu: TMenuItem
        Caption = '&Tool Bar'
        Checked = True
        OnClick = ToolBarMenuClick
      end
      object TrackBarMenu: TMenuItem
        Caption = 'T&rack Bar'
        Checked = True
        OnClick = TrackBarMenuClick
      end
      object TrackInfoMenu: TMenuItem
        Caption = '&Status Bar'
        Checked = True
        OnClick = TrackInfoMenuClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object ShowHintsMenu: TMenuItem
        Caption = '&Hints'
        Checked = True
        OnClick = ShowHintsMenuClick
      end
      object ShortMenu: TMenuItem
        Caption = 'Short &Menu'
        OnClick = ShortMenuClick
      end
    end
    object PutinTray1: TMenuItem
      Caption = 'Put in &Tray'
      OnClick = PutinTray1Click
    end
    object SelectDriveMenu: TMenuItem
      Caption = 'Select &Drive'
      Enabled = False
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object ExitRCCD1: TMenuItem
      Caption = 'E&xit RCCD'
      OnClick = ExitRCCD1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object mnuRegister: TMenuItem
      Caption = 'Re&gister'
      OnClick = mnuRegisterClick
    end
    object Properties1: TMenuItem
      Caption = 'Prope&rties'
      OnClick = Properties1Click
    end
  end
  object SaveSettings: TgbSaveSettings
    StoreSize = False
    IniFileName = 'RCCD'
    SectionName = 'Main Form'
    RegistryKey = '\Software\GaJITS\'
    OnReadIni = SaveSettingsReadIni
    OnWriteIni = SaveSettingsWriteIni
    Left = 80
    Top = 164
  end
  object TrayIcon: TgbTrayIcon
    LeftButtonPopup = MediaPlayerPopup
    RightButtonPopup = MediaPlayerPopup
    Hint = 'CD Player'
    Icon.Data = {<image001.ico>}
    Immediate = False
    OnDblClick = TrayIconDblClick
    Left = 24
    Top = 164
  end
  object App: TgbInsideApp
    OnActivate = AppActivate
    OnDeactivate = AppDeactivate
    OnException = AppException
    OnActiveFormChange = AppActiveFormChange
    Left = 52
    Top = 164
  end
  object gbDeviceChangeNotifier: TgbDeviceChangeNotifier
    OnDeviceChange = gbDeviceChangeNotifierDeviceChange
    Left = 80
    Top = 136
  end
  object HideWindowTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = HideWindowTimerTimer
    Left = 108
    Top = 136
  end
  object WSocket: TWSocket
    Addr = 'cddb.cddb.com'
    Port = '8880'
    Proto = 'tcp'
    MultiThreaded = False
    FlushTimeout = 10
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 10
    Left = 24
    Top = 192
  end
end